home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / forms / 3dgd / main.frm (.txt) next >
Encoding:
Visual Basic Form  |  1995-03-01  |  4.8 KB  |  141 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "Form1"
  5.    ClientHeight    =   4020
  6.    ClientLeft      =   3000
  7.    ClientTop       =   2325
  8.    ClientWidth     =   4590
  9.    FillColor       =   &H00FF0000&
  10.    FillStyle       =   0  'Solid
  11.    Height          =   4425
  12.    Left            =   2940
  13.    LinkTopic       =   "Form1"
  14.    ScaleHeight     =   4020
  15.    ScaleWidth      =   4590
  16.    Top             =   1980
  17.    Width           =   4710
  18.    WindowState     =   2  'Maximized
  19.    Begin ListBox List1 
  20.       Height          =   2370
  21.       Left            =   1200
  22.       TabIndex        =   2
  23.       Tag             =   "OLU"
  24.       Top             =   3480
  25.       Width           =   2175
  26.    End
  27.    Begin TextBox Text2 
  28.       Height          =   375
  29.       Left            =   1440
  30.       TabIndex        =   1
  31.       Tag             =   "OLD"
  32.       Text            =   "Text2"
  33.       Top             =   1680
  34.       Width           =   1695
  35.    End
  36.    Begin TextBox Text1 
  37.       Height          =   375
  38.       Left            =   1440
  39.       TabIndex        =   0
  40.       Tag             =   "OLD"
  41.       Text            =   "Text1"
  42.       Top             =   840
  43.       Width           =   1695
  44.    End
  45.    Begin Label lblFrameLabel 
  46.       AutoSize        =   -1  'True
  47.       BackColor       =   &H00C0C0C0&
  48.       Caption         =   " Frame Label "
  49.       FontBold        =   0   'False
  50.       FontItalic      =   0   'False
  51.       FontName        =   "MS Sans Serif"
  52.       FontSize        =   9.75
  53.       FontStrikethru  =   0   'False
  54.       FontUnderline   =   0   'False
  55.       Height          =   240
  56.       Left            =   1440
  57.       TabIndex        =   6
  58.       Top             =   560
  59.       Width           =   1230
  60.    End
  61.    Begin Label Label1 
  62.       Alignment       =   2  'Center
  63.       BackColor       =   &H00C0C0C0&
  64.       Caption         =   "3D Label"
  65.       Height          =   195
  66.       Left            =   5520
  67.       TabIndex        =   5
  68.       Tag             =   "OLU"
  69.       Top             =   840
  70.       Width           =   1935
  71.    End
  72.    Begin Label lblPoint2 
  73.       Caption         =   "Label1"
  74.       Height          =   255
  75.       Left            =   7920
  76.       TabIndex        =   4
  77.       Top             =   5520
  78.       Visible         =   0   'False
  79.       Width           =   255
  80.    End
  81.    Begin Label lblPoint1 
  82.       Caption         =   "Label1"
  83.       Height          =   255
  84.       Left            =   4800
  85.       TabIndex        =   3
  86.       Top             =   480
  87.       Visible         =   0   'False
  88.       Width           =   255
  89.    End
  90. Option Explicit
  91. '3D Frames, Panels, and Controls by Greg DeBacker
  92. 'These routines are free to use by anyone.
  93. 'Send comments to Greg DeBacker, CIS # 71042,36
  94. 'There are 3 routines in the BAS file, THREED.BAS, that will make 3D Panels,
  95. '3D Frames, and 3D Controls. The first 2, DrawFrame and DrawPanel, I route.
  96. 'The thrid, OutLines, was taken from the VisData sample that shipped with
  97. 'VB 3.0. However, I did make some modifications to this routine to allow for
  98. 'raised and recessed controls.
  99. 'All of the routines in this sample are called from the Form_Paint event.
  100. '****DrawFrame****
  101. '   The synatx for DrawFrame:
  102. '       DrawFrame Form to draw on, Control that will be in the upper_
  103. '                 left corner, Control that will be in the lower right_
  104. '                 corner, offset from the controls
  105. 'I used a Label control for the frame label. If the label caption will be
  106. 'changing at run-time set the AutoSize property to True. It also looks better
  107. 'if you pad the caption with a leading and trailing space (Chr$(32)).
  108. '****DrawPanel****
  109. '   The synatx for DrawPanel:
  110. '       DrawPanel Form to draw on, Control that will be in the upper_
  111. '                 left corner, Control that will be in the lower right_
  112. '                 corner, offset from the controls, thickness of the border
  113. '****OutLines****
  114. '   The synatx for OutLines:
  115. '       OutLines Form to draw on
  116. '   The controls that you want to be 3Ded need to have their Tag property
  117. '   set. The two options are:
  118. '        Control.Tag = "OLD" (Out Line Down) Recessed
  119. '        Control.Tag = "OLU" (Out Line Up) Raised
  120. Sub Form_Load ()
  121. BackColor = QBColor(7)
  122. Dim k%
  123. List1.AddItem "Raised List Box"
  124. For k% = 1 To 50
  125.     List1.AddItem "Item # " & Str$(k%)
  126. Next k%
  127. List1.ListIndex = 0
  128. End Sub
  129. Sub Form_Paint ()
  130. ' Draw the panel for the 2 text boxes
  131. DrawFrame Me, Text1, Text2, 200
  132. ' Draw the panel for the list box
  133. DrawFrame Me, List1, List1, 200
  134. ' Draw using the two invisible Label controls as boundries
  135. DrawPanel Me, lblPoint1, lblPoint2, 200, 80
  136. ' Draw the panel for the Label
  137. DrawPanel Me, Label1, Label1, 80, 40
  138. 'Outline the controls
  139. OutLines Me
  140. End Sub
  141.